home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / PRIM / MACROS.ELC < prev    next >
Text File  |  1993-03-28  |  4KB  |  49 lines
  1. ;;; compiled by @win386 on Sat Mar 13 01:38:53 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/prim/macros.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (fset 'name-last-kbd-macro #[(symbol) "¼ä┴┬!ê├ !½É K;¼ï┼ K!¼à┴╞ \"ê Mç" [last-kbd-macro error "No keyboard macro defined" fboundp symbol vectorp "Function %s is already defined and not a keyboard macro."] 3 "\
  14. Assign a name to the last keyboard macro defined.
  15. One arg, a symbol, which is the name to define.
  16. The symbol's function definition becomes the keyboard macro string.
  17. Such a \"function\" cannot be called from Lisp, but it is a valid command
  18. definition for the editor command loop." "SName for last kbd macro: "])
  19. (fset 'insert-kbd-macro #[(macroname &optional keys) "h└U¼â┴cê┬cê├ p\"ê┼cê├╞ K!«ä╟ K!p\"ê╚cê    ¡¿╩ ╦\"ë    ¡₧╠cê├    @p\"ê═cê├ p\"ê╚cê    Aë    ¼c╦)ç" [10 "\n" "(fset '" prin1 macroname "\n   " keyboard-macro-to-string keyboard-macro-to-vector ")\n" keys where-is-internal nil "(global-set-key " " '"] 4 "\
  20. Insert in buffer the definition of kbd macro NAME, as Lisp code.
  21. Second argument KEYS non-nil means also record the keys it is on.
  22.  (This is the prefix argument, when calling interactively.)
  23.  
  24. This Lisp code will, when executed, define the kbd macro with the
  25. same definition it has now.  If you say to record the keys,
  26. the Lisp code will also rebind those keys to the macro.
  27. Only global key bindings are recorded since executing this Lisp code
  28. always makes global bindings.
  29.  
  30. To save a kbd macro, visit a file of Lisp code such as your ~/.emacs,
  31. use this command, and then save the file." "CInsert kbd macro (name): \nP"])
  32. (fset 'keyboard-macro-to-string #[(macro) ";½éçG┬    ├\"┼├├    W½ó╚H┼\"ë½ë Iê¬à    ┼Të¬Z ,ç" [macro length make-string 0 string nil c i event-to-character] 4 "\
  33. Given a vector of event objects, returns an equivalent string of ASCII
  34. characters.  Returns nil if any of the events have no ASCII equivalent."])
  35. (fset 'keyboard-macro-to-vector #[(macro) "G┬!───╚    ╚    W½╘    H╩!½î     ╦╠!DIê¬╢═!½¡╬!╧!뺽ë╨╤╥\"!     ½ë─Bñ¬éIê¬ä╙╘!ê    Të    ¬( .ç" [macro length copy-sequence new nil event mods key 0 i menu-event-p menu-selection event-object key-press-event-p event-modifiers event-key intern make-string 1 error "Only key-press and menu-selection events may be saved in keyboard macros."] 6 "\
  36. Given a vector of event objects, returns an equivalent vector of symbols,
  37. lists, or numbers which can be written (readably) to a file."])
  38. (fset 'kbd-macro-query #[(flag) "¼ç    ¼ä┬├!ê ½ê┼ë╞ *ç??¡╓╟¡╬┼ë╔╩!ê╦ *ë ═U½à┼¬┤ ╬U½ç┼╧¬º ╨U½ç┼╟¬Ü ╤U½å╥┼!ê¬Ä ╙U½ê┼ë╞ ê*)¬.)ç" [executing-macro defining-kbd-macro error "Not defining or executing kbd macro" flag nil recursive-edit t loop message "Proceed with macro? (Space, DEL, C-d, C-r or C-l) " read-char char 32 127 "" 4 12 recenter 18] 3 "\
  39. Query user during kbd macro execution.
  40. With prefix argument, enters recursive edit,
  41.  reading keyboard commands even within a kbd macro.
  42.  You can give different commands each time the macro executes.
  43. Without prefix argument, reads a character.  Your options are:
  44.  Space -- execute the rest of the macro.
  45.  DEL -- skip the rest of the macro; start next repetition.
  46.  C-d -- skip rest of the macro and don't repeat it any more.
  47.  C-r -- enter a recursive edit, then on exit ask again for a character
  48.  C-l -- redisplay screen and ask again." "P"])
  49.